home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / hardware.swg / 0011_Set the TURBO speed.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-27  |  556 b   |  31 lines
  1. {
  2.  Does anyone out there know how to set the Software Turbo Speed on Mother
  3.  boards without hitting the Turbo Switch or the <Ctrl> <Alt> <-> key to
  4.  slow the system and or Speed it up again? Thanks...
  5. }
  6.  
  7. Uses
  8.   Dos;
  9.  
  10. Procedure SetSpeed(Turbo : Boolean);
  11. Var
  12.   Regs   : Registers;
  13.   OldMem : Byte;
  14.  
  15. begin
  16.   {OldMem := Mem[$40 : $17];}
  17.   If Turbo then
  18.     Regs.AL := 78
  19.   else
  20.     Regs.AL := 74;
  21.  
  22.   {Mem[$40 : $17] := 140;}
  23.   Regs.AH := $4F;
  24.   Intr($15, Regs);
  25.   {Mem[$40 : $17] := OldMem;}
  26. end;
  27.  
  28. begin
  29.   SetSpeed(False);
  30. end.
  31.